/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Education / M / MathPad 2.15.sit / MathPad 2.15 / examples / solve

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 73 6f 6c 76 65 00 | 00 00 00 00 00 00 00 00 |..solve.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 41 | 44 00 00 00 00 00 00 00 |.TEXTMPA|D.......|
|00000050| 00 00 00 00 00 01 d4 00 | 00 01 56 a8 c1 92 e0 a8 |........|..V.....|
|00000060| c1 92 e0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4d cc 00 00 |........|....M...|
|00000080| 2d 2d 20 53 6f 6c 75 74 | 69 6f 6e 20 6f 66 20 61 |-- Solut|ion of a|
|00000090| 20 73 79 73 74 65 6d 20 | 6f 66 20 65 71 75 61 74 | system |of equat|
|000000a0| 69 6f 6e 73 20 62 79 20 | 43 72 61 6d 65 72 73 20 |ions by |Cramers |
|000000b0| 72 75 6c 65 2e 0d 0d 73 | 6f 6c 76 65 28 41 2c 42 |rule...s|olve(A,B|
|000000c0| 29 5b 6a 5d 20 3d 20 64 | 65 74 28 63 72 61 6d 28 |)[j] = d|et(cram(|
|000000d0| 41 2c 42 2c 6a 29 29 2f | 64 65 74 28 41 29 0d 63 |A,B,j))/|det(A).c|
|000000e0| 72 61 6d 28 41 2c 42 2c | 6b 29 5b 69 2c 6a 5d 20 |ram(A,B,|k)[i,j] |
|000000f0| 3d 20 41 5b 69 2c 6a 5d | 20 77 68 65 6e 20 6a ad |= A[i,j]| when j.|
|00000100| 6b 2c 20 42 5b 69 5d 20 | 64 69 6d 5b 63 6f 75 6e |k, B[i] |dim[coun|
|00000110| 74 28 42 29 5d 0d 0d 2d | 2d 20 65 78 61 6d 70 6c |t(B)]..-|- exampl|
|00000120| 65 20 73 79 73 74 65 6d | 20 6f 66 20 65 71 75 61 |e system| of equa|
|00000130| 74 69 6f 6e 73 0d 2d 2d | 20 32 78 20 2b 20 20 79 |tions.--| 2x +  y|
|00000140| 20 2b 20 20 7a 20 3d 20 | 32 0d 2d 2d 20 20 78 20 | +  z = |2.--  x |
|00000150| 2d 20 20 79 20 2b 20 35 | 7a 20 3d 20 34 0d 2d 2d |-  y + 5|z = 4.--|
|00000160| 20 20 20 20 20 20 20 79 | 20 2d 20 20 7a 20 3d 20 |       y| -  z = |
|00000170| 34 0d 0d 41 3d 7b 7b 20 | 32 2c 20 31 2c 20 31 7d |4..A={{ |2, 1, 1}|
|00000180| 2c 20 20 2d 2d 20 63 6f | 65 66 66 69 63 69 65 6e |,  -- co|efficien|
|00000190| 74 73 0d 20 20 20 7b 20 | 31 2c 2d 31 2c 20 35 7d |ts.   { |1,-1, 5}|
|000001a0| 2c 0d 20 20 20 7b 20 30 | 2c 20 31 2c 2d 31 7d 7d |,.   { 0|, 1,-1}}|
|000001b0| 0d 0d 43 3d 20 7b 20 32 | 2c 20 34 2c 20 34 7d 20 |..C= { 2|, 4, 4} |
|000001c0| 20 20 2d 2d 20 63 6f 6e | 73 74 61 6e 74 73 0d 0d |  -- con|stants..|
|000001d0| 73 6f 6c 76 65 28 41 2c | 43 29 3a 7b 2d 34 2e 30 |solve(A,|C):{-4.0|
|000001e0| 2c 37 2e 30 2c 33 2e 30 | 7d 0d 0d 78 3d 73 6f 6c |,7.0,3.0|}..x=sol|
|000001f0| 76 65 28 41 2c 43 29 5b | 31 5d 0d 79 3d 73 6f 6c |ve(A,C)[|1].y=sol|
|00000200| 76 65 28 41 2c 43 29 5b | 32 5d 0d 7a 3d 73 6f 6c |ve(A,C)[|2].z=sol|
|00000210| 76 65 28 41 2c 43 29 5b | 33 5d 0d 0d 32 2a 78 20 |ve(A,C)[|3]..2*x |
|00000220| 2b 20 20 79 20 2b 20 20 | 20 7a 3a 32 2e 30 0d 20 |+  y +  | z:2.0. |
|00000230| 20 78 20 2d 20 20 79 20 | 2b 20 35 2a 7a 3a 34 2e | x -  y |+ 5*z:4.|
|00000240| 30 0d 20 20 20 20 20 20 | 20 79 20 2d 20 20 20 7a |0.      | y -   z|
|00000250| 3a 34 2e 30 00 00 00 00 | 00 00 00 00 00 00 00 00 |:4.0....|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 01 00 00 00 01 24 | 00 00 00 24 00 00 00 32 |.......$|...$...2|
|00000290| 08 20 30 3b 20 31 25 20 | 32 25 20 33 25 01 00 84 |. 0; 1% |2% 3%...|
|000002a0| 26 27 28 2f 31 20 2e 01 | 31 aa 73 01 10 c0 20 2f |&'(/1 ..|1.s... /|
|000002b0| 05 73 6f 6c 76 65 02 00 | 00 00 50 61 72 74 53 49 |.solve..|..PartSI|
|000002c0| 54 78 00 00 00 00 00 00 | 00 00 00 01 49 2e 00 00 |Tx......|....I...|
|000002d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 a9 7e bd ef 00 00 | 00 00 00 00 01 56 2f 0b |...~....|.....V/.|
|00000300| 4e ad 0c 12 01 70 04 14 | 2f 00 2f 0b 4e ad 0c 12 |N....p..|/./.N...|
|00000310| 14 2f 0c 20 54 20 50 22 | 68 5e 17 4e 91 58 8f 2f |./. T P"|h^.N.X./|
|00000320| 00 48 78 13 93 4e ad 09 | ca 6d 24 73 84 5f 65 4e |.Hx..N..|.m$s._eN|
|00000330| 63 4b 5c 9b 8c 4f 02 2e | 3c 80 00 4b 99 02 66 6d |cK\..O..|<..K..fm|
|00000340| 73 63 12 2f 0c 4e ad 13 | 0b f2 4a 00 50 8f 01 67 |sc./.N..|..J.P..g|
|00000350| 14 7f 01 06 a8 4b 4f 87 | 27 01 0c 0a f1 67 55 cc |.....KO.|'....gU.|
|00000360| 99 02 63 6f 6e 74 27 28 | 01 67 24 99 02 2d 2d 2d |..cont'(|.g$..---|
|00000370| 2d 27 28 01 67 1c 7f 01 | 58 a8 87 27 01 0c 1a cc |-'(.g...|X..'....|
|00000380| 00 00 00 20 00 00 00 01 | 00 02 3f f9 8e fa 35 12 |... ....|..?...5.|
|00000390| 94 e9 c8 ae 01 64 01 2d | 00 08 00 27 01 06 01 2c |.....d.-|...'...,|
|000003a0| 00 f8 00 28 00 00 01 00 | 00 00 01 24 00 00 00 24 |...(....|...$...$|
|000003b0| 00 00 00 32 00 40 62 8c | 06 40 00 00 00 1c 00 32 |...2.@b.|.@.....2|
|000003c0| 00 00 50 52 65 66 00 00 | 00 0a 00 80 ff ff 00 00 |..PRef..|........|
|000003d0| 00 00 00 41 47 38 00 00 | 00 00 00 00 00 00 00 00 |...AG8..|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+